﻿
Namespace internalFunctions
    Public Class _availablePhysicalMemory
        Inherits noInputFunction(Of Int64)

        Public Sub New()
            MyBase.New("availablePhysicalMemory")
        End Sub

        Protected Overrides Function invoke(ByRef o As Int64) As Boolean
            o = availablePhysicalMemory()
            Return True
        End Function

        Protected Overrides Function returnType() As typeDefination
            Return typeDefination.int
        End Function
    End Class

    Public Class _availableVirtualMemory
        Inherits noInputFunction(Of Int64)

        Public Sub New()
            MyBase.New("availableVirtualMemory")
        End Sub

        Protected Overrides Function invoke(ByRef o As Int64) As Boolean
            o = availableVirtualMemory()
            Return True
        End Function

        Protected Overrides Function returnType() As typeDefination
            Return typeDefination.int
        End Function
    End Class
End Namespace